home *** CD-ROM | disk | FTP | other *** search
/ NeXT Education Software Sampler 1992 Fall / NeXT Education Software Sampler 1992 Fall.iso / Programming / Source / winterp-1.13 / contrib / xmu / GNU / winterp.el < prev    next >
Encoding:
Text File  |  1991-10-06  |  8.2 KB  |  207 lines
  1. ; -*-Emacs-Lisp-*-
  2. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  3. ;
  4. ; File:         winterp2.el
  5. ; RCS:          $Header: winterp.el,v 1.2 89/12/15 17:48:27 mayer Exp $
  6. ; Description:  GNUEMACS lisp-mode interface to WINTERP.
  7. ; Author:       Niels Mayer, HPLabs. 
  8. ;        Modified by Richard Hess, cimshop!rhess@uunet.UU.NET.
  9. ; Created:      Tue Nov 14 23:14:54 1989
  10. ; Modified:     Fri Dec 15 17:46:07 1989 (Niels Mayer) mayer@hplnpm
  11. ; Language:     Emacs-Lisp
  12. ; Package:      N/A
  13. ; Status:       X11r5 contrib tape release
  14. ;
  15. ; WINTERP Copyright 1989-1991 Hewlett-Packard Company (by Niels Mayer).
  16. ; XLISP version 2.1, Copyright (c) 1989, by David Betz.
  17. ;
  18. ; Permission to use, copy, modify, distribute, and sell this software and its
  19. ; documentation for any purpose is hereby granted without fee, provided that
  20. ; the above copyright notice appear in all copies and that both that
  21. ; copyright notice and this permission notice appear in supporting
  22. ; documentation, and that the name of Hewlett-Packard and David Betz not be
  23. ; used in advertising or publicity pertaining to distribution of the software
  24. ; without specific, written prior permission.  Hewlett-Packard and David Betz
  25. ; make no representations about the suitability of this software for any
  26. ; purpose. It is provided "as is" without express or implied warranty.
  27. ;
  28. ; HEWLETT-PACKARD AND DAVID BETZ DISCLAIM ALL WARRANTIES WITH REGARD TO THIS
  29. ; SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS,
  30. ; IN NO EVENT SHALL HEWLETT-PACKARD NOR DAVID BETZ BE LIABLE FOR ANY SPECIAL,
  31. ; INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM
  32. ; LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE
  33. ; OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
  34. ; PERFORMANCE OF THIS SOFTWARE.
  35. ;
  36. ; See ./winterp/COPYRIGHT for information on contacting the authors.
  37. ; 
  38. ; Please send modifications, improvements and bugfixes to mayer@hplabs.hp.com
  39. ; Post XLISP-specific questions/information to the newsgroup comp.lang.lisp.x
  40. ;
  41. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  42.  
  43. (defvar winterp2-client "wl"
  44.   "The full path name of the client program (ie 'wl') that sends lisp
  45. expressions to the winterp lisp server...")
  46.  
  47. (defvar winterp2-client-args nil
  48.   "This sets the arguments sent to 'wl'... [ must be a list of strings ]")
  49.  
  50. ;; --------------------------------------------------------------------------
  51.  
  52. (defun winterp-send-defun ()
  53.   "[ NEW ]:  A version of lisp-send-defun that talks to WINTERP's lisp server
  54. via the winterp client program 'wl'..."
  55.   (interactive)
  56.   (let ((loadfile (format "/tmp/wl%d.lsp" (user-real-uid))))
  57.     (save-excursion (write-region
  58.              (progn (beginning-of-defun) (point))
  59.              (progn (end-of-defun) (point))
  60.              loadfile nil 'nomessage))
  61.     (apply 'start-process "winterp2-client" nil
  62.        winterp2-client
  63.        (append winterp2-client-args
  64.            (list (format
  65.               "(load \"%s\" :verbose nil :print t)"
  66.               loadfile))))
  67.     )
  68.   )
  69.  
  70. ;; --------------------------------------------------------------------------
  71.  
  72. (defun winterp-send-exit ()
  73.   "[ NEW ]:  Calling this function will send WINTERP a command to exit the
  74. current breaklevel. If not at a breaklevel, then WINTERP will exit..."
  75.   (interactive)
  76.   ;;sending wl with no args sends an EOF to WINTERP which signals XLISP to
  77.   ;;exit the current breaklevel, or exit if not in the breakloop.
  78.   (apply 'start-process "winterp2-client" nil
  79.      winterp2-client
  80.      winterp2-client-args)
  81.   )
  82.  
  83. ;; --------------------------------------------------------------------------
  84.  
  85. (defun winterp-send-buffer ()
  86.   "[ NEW ]:  A version of winterp-send-defun that sends the entire buffer off
  87. to WINTERP for evaluation. This routine talks to WINTERP's lisp server via the
  88. winterp client program 'wl'..."
  89.   (interactive)
  90.   (let ((loadfile (format "/tmp/wl%d.lsp" (user-real-uid))))
  91.     (save-excursion (write-region (point-min) (point-max)
  92.                   loadfile nil 'nomessage))
  93.     (apply 'start-process "winterp2-client" nil
  94.        winterp2-client
  95.        (append winterp2-client-args
  96.            (list (format
  97.               "(load \"%s\" :verbose nil :print t)"
  98.               loadfile))))
  99.     )
  100.   )
  101.  
  102. ;; ----------------------------------------------------------------[ contrib ]
  103. ;;; Date: Mon, 17 Dec 90 16:46:39 -0500
  104. ;;; From: rsw@cs.brown.edu (Bob Weiner)
  105. ;;; Message-Id: <9012172146.AA06790@fiddle.cs.brown.edu>
  106. ;;; To: mayer@hplnpm.hpl.hp.com
  107. ;;; Subject: Generalization of winterp.el code.
  108. ;;; 
  109. ;;; The generalization I include here substitutes an eval-last-sexp type 
  110. ;;; function for your send-defun.  The send-defun function may be left around 
  111. ;;; but really is not needed since all one need do is move to the end of the
  112. ;;; function and evaluate it.  This makes the interface so much simpler when
  113. ;;; one wants to do bottom up testing via the interpreter.
  114. ;;; 
  115. ;;; I've included only the one function and the key binding, so you should
  116. ;;; substitute it into your winterp.el file.
  117.  
  118. (defun winterp-eval-last-sexp ()
  119.   "[ NEW ]:  A version of eval-last-sexp that talks to WINTERP's lisp server
  120. via the winterp client program 'wl'.  Evaluates sexp immediately preceding
  121. point..."
  122.   (interactive)
  123.   (let ((loadfile (format "/tmp/wl%d.lsp" (user-real-uid)))
  124.     (stab (syntax-table)))
  125.     (write-region
  126.      (unwind-protect
  127.      (save-excursion
  128.        (set-syntax-table emacs-lisp-mode-syntax-table)
  129.        (forward-sexp -1)
  130.        (point))
  131.        (set-syntax-table stab))
  132.      (point)
  133.      loadfile nil 'nomessage)
  134.     (apply 'start-process "winterp2-client" nil
  135.        winterp2-client
  136.        (append winterp2-client-args
  137.            (list (format
  138.               "(load \"%s\" :verbose nil :print t)"
  139.               loadfile))))
  140.     )
  141.   )
  142.  
  143. ;; ----------------------------------------------------------------[ contrib ]
  144. ;;; Date: Mon, 17 Dec 90 16:56:32 -0500
  145. ;;; From: rsw@cs.brown.edu (Bob Weiner)
  146. ;;; Message-Id: <9012172156.AA06799@fiddle.cs.brown.edu>
  147. ;;; To: mayer@hplnpm.hpl.hp.com
  148. ;;; Subject: Further generalization of winterp.el code.
  149. ;;; 
  150. ;;; We can further simplify the interface by combinding the expression 
  151. ;;; evaluation command with the buffer evaluation command.  The latter is
  152. ;;; called when a prefix argument is sent to the 'winterp-eval' command.  
  153. ;;; Thus, only one key is needed, but both functions are accessible.  Try it.
  154. ;;;
  155.  
  156. (defun winterp-eval (&optional arg)
  157.   "Evaluate last sexpression.  With prefix ARG, evaluate visible portion of buffer."
  158.   (interactive "P")
  159.   (if arg
  160.       (winterp-send-buffer)
  161.     (winterp-eval-last-sexp)))
  162.  
  163. ;; ----------------------------------------------------------------[ contrib ]
  164. ;;; To: mayer@hplabs.hpl.hp.com
  165. ;;; Cc: gildea@alexander.bbn.com
  166. ;;; Subject: XLisp comments
  167. ;;; Date: Tue, 02 Oct 90 11:45:16 EDT
  168. ;;; From: Stephen Gildea <gildea@alexander.bbn.com>
  169. ;;; 
  170. ;;; I found I needed the function winterp-send-region, so I added it to
  171. ;;; winterp.el.  Here it is:
  172.  
  173. (defun winterp-send-region (start end)
  174.   "[ NEW ]:  Send the current region off to WINTERP for evaluation.
  175. This routine talks to WINTERP's lisp server via the winterp client
  176. program 'wl'..."
  177.   (interactive "r")
  178.   (let ((loadfile (format "/tmp/wl%d.lsp" (user-real-uid))))
  179.     (save-excursion (write-region start end loadfile nil 'nomessage))
  180.     (apply 'start-process "winterp2-client" nil
  181.        winterp2-client
  182.        (append winterp2-client-args
  183.            (list (format
  184.               "(load \"%s\" :verbose nil :print t)"
  185.               loadfile))))
  186.     ))
  187.  
  188. ;; --------------------------------------------------------------------------
  189. ;; rebind some keys in lisp-mode-map (assumed preloaded in gnuemacs).
  190. ;; --------------------------------------------------------------------------
  191.  
  192. (define-key lisp-mode-map "\C-c\C-d" 'winterp-send-exit)
  193. (define-key lisp-mode-map "\e\C-x"   'winterp-send-defun)
  194. (define-key lisp-mode-map "\e\C-x"   'winterp-eval-last-sexp)
  195. (define-key lisp-mode-map "\M-\C-x"  'winterp-eval)
  196.  
  197. ;; NPM??? -- (if (eq window-system 'x)
  198. ;; NPM??? --     (progn (xterm-bind-key "L2"        'winterp-send-buffer)
  199. ;; NPM??? --        (xterm-bind-key "L4"        'winterp-send-defun)
  200. ;; NPM??? --        (xterm-bind-key "L3"        'winterp-eval-last-sexp)
  201. ;; NPM??? --        (xterm-bind-key "L5"        'winterp-eval)
  202. ;; NPM??? --        (xterm-bind-key "L6"        'winterp-send-region)
  203. ;; NPM??? --        (xterm-bind-key "L10"    'winterp-send-exit)
  204. ;; NPM??? --        ))
  205.  
  206. ;; ---------------------------------------------------------------------<eof>
  207.